home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Easy Internet
/
Internet Training Corporation Easy Internet Rev21 (ITC).ISO
/
mac
/
DATA
/
1020.scp
< prev
next >
Wrap
Text File
|
1997-08-20
|
653b
|
52 lines
!
@ANSWER
@HANGUP
EXIT 0
!
@ORIGINATE
!
CHRDELAY 1
!
@LABEL 10
MATCHCLR
MATCHSTR 1 11 "Username: "
MATCHREAD 300
NOTE "Connect script couldn't match \34Username: \34" 3
JUMP 99
!
@LABEL 11
PAUSE 1
WRITE "^u\13"
!
@LABEL 12
MATCHCLR
MATCHSTR 1 13 "Password: "
MATCHREAD 300
NOTE "Connect script couldn't match \34Password: \34" 3
JUMP 99
!
@LABEL 13
IFSTR 12 14 ""
PAUSE 1
WRITE "^p\13"
JUMP 15
!
@LABEL 14
ASK 1 "Please enter password: "
WRITE "^*\13"
!
@LABEL 15
MATCHCLR
MATCHSTR 1 90 " is "
MATCHREAD 300
NOTE "Connect script couldn't match \34 is \34" 3
JUMP 99
!
@LABEL 90
PAUSE 1
EXIT 0
!
@LABEL 99
PAUSE 60
EXIT -6002 "Connection script failed."